perm filename TEST.F4[P11,LCS] blob sn#573341 filedate 1981-03-12 generic text, type T, neo UTF8
	DIMENSION M(2)
	DOUBLE PRECISION MM
	EQUIVALENCE (M,MM)
1	FORMAT(' TYPE INPUT NAME  '$)
2	FORMAT(' TYPE OUTPUT NAME  '$)
3	FORMAT(' TYPE EXTENSION  '$)
4	FORMAT(3A5)
5	TYPE 1
	ACCEPT 4,M(1)
	TYPE 3
	ACCEPT 4,M(2)
	M(2)='.QQQ'
	CALL OFILE(21,MM)
	II='AAAAA'
	JJ='BBBBB'
	KK='CCCCC'
	WRITE(21,4)II,JJ,KK
	END FILE 21
	CALL IFILE(22,MM)
	READ(22,4)I,J,K
	TYPE 4,I,J,K
	GO TO 5
	END